home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 22 / Cream of the Crop 22.iso / program / vimvcl30.zip / DEMO1S.DFM / DEMO1S.txt
Text File  |  1996-09-20  |  4KB  |  205 lines
  1. object Form1: TForm1
  2.   Left = 160
  3.   Top = 201
  4.   AutoScroll = False
  5.   Caption = 'Demonstration of VimSend Capability'
  6.   ClientHeight = 472
  7.   ClientWidth = 619
  8.   Font.Color = clWindowText
  9.   Font.Height = -17
  10.   Font.Name = 'System'
  11.   Font.Style = []
  12.   Scaled = False
  13.   OnActivate = FormActivate
  14.   OnCreate = FormCreate
  15.   PixelsPerInch = 120
  16.   TextHeight = 20
  17.   object Label1: TLabel
  18.     Left = 8
  19.     Top = 8
  20.     Width = 17
  21.     Height = 16
  22.     Caption = 'TO'
  23.     Font.Color = clBlack
  24.     Font.Height = -13
  25.     Font.Name = 'Arial'
  26.     Font.Style = []
  27.     ParentFont = False
  28.   end
  29.   object Label2: TLabel
  30.     Left = 8
  31.     Top = 112
  32.     Width = 18
  33.     Height = 16
  34.     Caption = 'CC'
  35.     Font.Color = clBlack
  36.     Font.Height = -13
  37.     Font.Name = 'Arial'
  38.     Font.Style = []
  39.     ParentFont = False
  40.   end
  41.   object eMessage: TMemo
  42.     Left = 8
  43.     Top = 312
  44.     Width = 601
  45.     Height = 153
  46.     Font.Color = clWindowText
  47.     Font.Height = -13
  48.     Font.Name = 'Arial'
  49.     Font.Style = []
  50.     Lines.Strings = (
  51.       'Message Text')
  52.     ParentFont = False
  53.     TabOrder = 0
  54.   end
  55.   object eSubject: TEdit
  56.     Left = 8
  57.     Top = 280
  58.     Width = 601
  59.     Height = 24
  60.     Font.Color = clBlack
  61.     Font.Height = -13
  62.     Font.Name = 'Arial'
  63.     Font.Style = []
  64.     ParentFont = False
  65.     TabOrder = 1
  66.     Text = 'Message Subject'
  67.   end
  68.   object Memo2: TMemo
  69.     Left = 448
  70.     Top = 8
  71.     Width = 169
  72.     Height = 201
  73.     Color = clMenu
  74.     Font.Color = clBlack
  75.     Font.Height = -15
  76.     Font.Name = 'Arial'
  77.     Font.Style = []
  78.     Lines.Strings = (
  79.       'This demo '
  80.       'demonstrates '
  81.       'a simple message send '
  82.       'function. '
  83.       ''
  84.       'There is no lookup of '
  85.       'addressees - this is '
  86.       'shown in Demo3. '
  87.       'However if the send '
  88.       'function fails the error '
  89.       'message(s) are '
  90.       'displayed.')
  91.     ParentFont = False
  92.     TabOrder = 2
  93.   end
  94.   object Button1: TButton
  95.     Left = 312
  96.     Top = 8
  97.     Width = 65
  98.     Height = 25
  99.     Caption = 'Send'
  100.     Font.Color = clBlack
  101.     Font.Height = -13
  102.     Font.Name = 'Arial'
  103.     Font.Style = []
  104.     ParentFont = False
  105.     TabOrder = 3
  106.     OnClick = Button1Click
  107.   end
  108.   object gPriority: TRadioGroup
  109.     Left = 320
  110.     Top = 216
  111.     Width = 289
  112.     Height = 57
  113.     Caption = 'Priority'
  114.     Columns = 3
  115.     Font.Color = clBlack
  116.     Font.Height = -13
  117.     Font.Name = 'Arial'
  118.     Font.Style = []
  119.     Items.Strings = (
  120.       'Low'
  121.       'Normal'
  122.       'Urgent')
  123.     ParentFont = False
  124.     TabOrder = 4
  125.   end
  126.   object eTO: TEdit
  127.     Left = 40
  128.     Top = 8
  129.     Width = 257
  130.     Height = 24
  131.     Font.Color = clBlack
  132.     Font.Height = -13
  133.     Font.Name = 'Arial'
  134.     Font.Style = []
  135.     ParentFont = False
  136.     TabOrder = 5
  137.     OnExit = eTOExit
  138.   end
  139.   object lTO: TListBox
  140.     Left = 40
  141.     Top = 40
  142.     Width = 257
  143.     Height = 65
  144.     Font.Color = clBlack
  145.     Font.Height = -13
  146.     Font.Name = 'Arial'
  147.     Font.Style = []
  148.     ItemHeight = 16
  149.     ParentFont = False
  150.     TabOrder = 6
  151.   end
  152.   object eCC: TEdit
  153.     Left = 40
  154.     Top = 112
  155.     Width = 257
  156.     Height = 24
  157.     Font.Color = clBlack
  158.     Font.Height = -13
  159.     Font.Name = 'Arial'
  160.     Font.Style = []
  161.     ParentFont = False
  162.     TabOrder = 7
  163.     OnExit = eCCExit
  164.   end
  165.   object lCC: TListBox
  166.     Left = 40
  167.     Top = 144
  168.     Width = 257
  169.     Height = 73
  170.     Font.Color = clBlack
  171.     Font.Height = -13
  172.     Font.Name = 'Arial'
  173.     Font.Style = []
  174.     ItemHeight = 16
  175.     ParentFont = False
  176.     TabOrder = 8
  177.   end
  178.   object Button2: TButton
  179.     Left = 312
  180.     Top = 40
  181.     Width = 65
  182.     Height = 25
  183.     Caption = 'Logout'
  184.     Font.Color = clBlack
  185.     Font.Height = -13
  186.     Font.Name = 'Arial'
  187.     Font.Style = []
  188.     ParentFont = False
  189.     TabOrder = 9
  190.     OnClick = Button2Click
  191.   end
  192.   object VimSession1: TVimSession
  193.     Active = False
  194.     PermitUserLogin = True
  195.     Left = 312
  196.     Top = 80
  197.   end
  198.   object VimSendMessage1: TVimSendMessage
  199.     Receipt = False
  200.     Session = VimSession1
  201.     Left = 312
  202.     Top = 120
  203.   end
  204. end
  205.